home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr18 / ter99.zip / PASCAL._XE / IEMSI.PAS < prev    next >
Pascal/Delphi Source File  |  1992-09-27  |  2KB  |  72 lines
  1. Program IEMSI_information;
  2.  
  3. {----------------------------------------------------------------------------}
  4. {-        A small utility you can use at your RemoteAccess BBS system       -}
  5. {-                                                                          -}
  6. {- It will show the IEMSI information that RA knowns about the users system -}
  7. {-                                                                          -}
  8. {- Create a menu called IEMSI with 3 menu-items that are is automatic (^A)  -}
  9. {-                                                                          -}
  10. {- 1:  Type  7 : C:\BBS\IEMSI.EXE C:\BBS\TEXT\IEMSI.ASC                     -}
  11. {- 2:  Type 45 : IEMSI                                                      -}
  12. {- 3:  Type  3 : Return from gosub                                          -}
  13. {-                                                                          -}
  14. {----------------------------------------------------------------------------}
  15.  
  16.  
  17. Uses Crt;
  18.  
  19. {$I STRUCT.110} { This file is inside the RA_111.ARJ package }
  20.  
  21. Var
  22.  E  : ExitInfoRecord;
  23.  EF : File of ExitInfoRecord;
  24.  
  25. Begin
  26.  
  27.   If ParamCount<>1 Then
  28.   Begin
  29.     WriteLn(#10#10#13'IEMSI Information');
  30.     WriteLn('Syntax: IEMSI C:\BBS\TEXT\IEMSI.ASC');
  31.     Delay(2000);
  32.     Halt;
  33.   End;
  34.  
  35.   Assign(EF,'EXITINFO.BBS');
  36.   {$I-} Reset(EF); {$I+}
  37.   If IOResult<>0 Then
  38.   Begin
  39.     WriteLn('Error opening EXITINFO.BBS in current directory');
  40.     Delay(2000);
  41.     Halt;
  42.   End;
  43.   Read(EF,E);
  44.   Close(EF);
  45.  
  46.   Assign(Output,ParamStr(1));
  47.   {$I-} Rewrite(Output); {$I+}
  48.   If IOResult<>0 Then
  49.   Begin
  50.     WriteLn('Error writing output file');
  51.     Delay(2000);
  52.     Halt;
  53.   End;
  54.  
  55.   WriteLn(Output,'  IEMSI Information by Bo TERMINATE Bendtsen');
  56.   WriteLn(Output,'───────────────────────────────────────────────────────────────────────────────'+#10);
  57.  
  58.   If E.EMSI_session then
  59.   Begin
  60.     WriteLn('IEMSI Console defaults : '+E.EMSI_Crtdef);
  61.     WriteLn('IEMSI protocol options : '+E.EMSI_Protocols);
  62.     WriteLn('IEMSI Capabilities     : '+E.EMSI_Capabilities);
  63.     WriteLn('IEMSI Requests         : '+E.EMSI_Requests);
  64.     WriteLn('IEMSI Software         : '+E.EMSI_Software);
  65.   End
  66.   Else Begin
  67.     WriteLn('You must use a program with IEMSI, like Terminate to use this function');
  68.   End;
  69.   WriteLn(Output,'───────────────────────────────────────────────────────────────────────────────'+#10);
  70.   Close(Output);
  71. End.
  72.